home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #9 / Commodore_Disk_User_Vol.3_9_1990_-.d64 / g.factory demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  52 lines
  1. 10 sq$="[146][144]"
  2. 15 :
  3. 20 dimf1$(17),ff$(23),cu(38)
  4. 25 print"[147]":forz=1to39:z$=z$+" ":next:z$="[156]"+z$:poke53280,4:poke53281,15
  5. 30 gosub145:tt$="[144] [158]  ":rr$="[157] [157][158] [157][144] ":bb$=" [158] [144] "
  6. 35 ll$="[145][157] [145][157][158] [145][157][144] ":fortb=1to12:t1$=t1$+tt$:b1$=b1$+bb$:next:forrl=1to7
  7. 40 r1$=r1$+rr$:l1$=l1$+ll$:next:t2$=right$(t1$,70)+left$(t1$,2)
  8. 45 t3$=right$(t2$,70)+left$(t2$,2):r2$=right$(r1$,4)+left$(r1$,80)
  9. 50 r3$=right$(r2$,4)+left$(r2$,80):b2$=right$(b1$,2)+left$(b1$,70)
  10. 55 b3$=right$(b2$,2)+left$(b2$,70):l2$=right$(l1$,4)+left$(l1$,80)
  11. 60 l3$=right$(l2$,4)+left$(l2$,80)
  12. 65 forf1=1to17:readf1$(f1):next:f1=1
  13. 70 gosub160:gosub145:gosub170
  14. 75 iff1<>1thenfordd=1to10:gosub130:next:gosub175:goto100
  15. 80 printsq$spc(6)" hit any key to continue... [145]"
  16. 85 getgt$:ifgt$=""then85
  17. 90 gt$="":goto105
  18. 95 gosub160:gosub145:gosub170:iff1>2thengosub175
  19. 100 getgt$:ifgt$=""then100
  20. 105 ifgt$<>""thenifgt$<>"[145]"then100
  21. 110 ifgt$=""thenf1=f1+1:iff1>17thenf1=1:gt$=""
  22. 115 ifgt$="[145]"thenf1=f1-1:iff1<1thenf1=1
  23. 120 onf1goto70,95,95,95,95,95,70,95,95,70,95,95,95,70,95,95,95
  24. 125 end
  25. 130 print""t1$""r1$"[157]"b1$l1$
  26. 135 print""t2$""r2$"[157]"b2$l2$
  27. 140 print""t3$""r3$"[157]"b3$l3$:return
  28. 145 print"";:zz=0:forz=1to24:printz$:zz=zz+40
  29. 150 poke1023+zz,160:poke55295+zz,4:next:printz$"[145]":poke2023,160:poke56295,4
  30. 155 return
  31. 160 open8,8,8,"0:"+f1$(f1)+",s,r":forff=1to23:input#8,f2$:input#8,f3$
  32. 165 ff$=f2$+f3$:ff$(ff)=ff$:next:close8:return
  33. 170 print"";:forff=1to23:print""ff$(ff):next:return
  34. 175 printsq$"use crsr up/down to go back & forth[145]":return
  35. 500 data cr/demo intro
  36. 505 data cr/text screen 2
  37. 510 data cr/text screen 3
  38. 515 data cr/text screen 4
  39. 520 data cr/text screen 5
  40. 525 data cr/text screen 6
  41. 530 data cr/prompt 3a
  42. 535 data cr/mod4 gfi
  43. 540 data cr/gf opt menu
  44. 545 data cr/prompt 4a
  45. 550 data cr/7 stud 2
  46. 555 data cr/casino craps
  47. 560 data cr/hustlers bluf
  48. 565 data cr/prompt 5a
  49. 570 data cr/magic pyramid
  50. 575 data cr/3d demo 2
  51. 580 data cr/tangled tubes
  52.